home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Xconq 7.1.0 / lib / monster.g < prev    next >
Encoding:
Text File  |  1996-04-04  |  4.2 KB  |  162 lines  |  [TEXT/XCNQ]
  1. (game-module "monster"
  2.   (title "Monster")
  3.   (blurb "Type defns for Tokyo 1962")
  4.   )
  5.  
  6. ;;; Reliving those old movies...
  7.  
  8. (set see-all true)
  9.  
  10. (unit-type monster (image-name "monster") (char "M")
  11.   (point-value 100)
  12.   (help "breathes fire and stomps on buildings"))
  13. (unit-type mob (name "panic-stricken mob") (image-name "horde") (char "m")
  14.   (help "helpless civilians"))
  15. (unit-type |fire department| (image-name "fireman") (char "f")
  16.   (help "puts out fires"))
  17. (unit-type |national guard| (image-name "soldiers") (char "g")
  18.   (help "does battle with the monster"))
  19. (unit-type building (image-name "city20") (char "B")
  20.   (point-value 1)
  21.   (help "good for hiding, but crushed by monster"))
  22. (unit-type burning-building (image-name "city20-burning") (char "B")
  23.   (point-value 1)
  24.   (help ""))
  25. (unit-type wrecked-building (image-name "city20-wrecked") (char "W")
  26.   (point-value 0)
  27.   (help ""))
  28. (unit-type rubble-pile (image-name "city20-rubble") (char "r")
  29.   (point-value 0)
  30.   (help ""))
  31.  
  32. (define firedept |fire department|)
  33. (define guard |national guard|)
  34. (define B building)
  35. (define BB burning-building)
  36. (define WB wrecked-building)
  37. (define R rubble-pile)
  38.  
  39. (terrain-type sea (color "sky blue") (char "."))
  40. (terrain-type beach (color "yellow") (image-name "desert") (char ","))
  41. (terrain-type street (color "light gray") (image-name "road") (char "+"))
  42. (terrain-type block (color "sienna") (char "-"))
  43. (terrain-type fields (color "green") (image-name "plains") (char "="))
  44. (terrain-type trees (color "forest green") (image-name "forest") (char "%"))
  45.  
  46. (define movers (monster mob firedept guard))
  47. (define water (sea))
  48. (define land (beach street block fields trees))
  49.  
  50. (add (monster) possible-sides "monster")
  51. (add (mob firedept guard B) possible-sides "human")
  52.  
  53. (table vanishes-on
  54.   (u* water true)
  55.   ;; Godzilla can go in the water.
  56.   (monster water false)
  57.   ;; Fire trucks and mobs can only go along the streets.
  58.   ((mob firedept) t* true)
  59.   ((mob firedept) street false)
  60.   )
  61.  
  62. (add movers acp-per-turn (2 1 2 2))
  63.  
  64. (table mp-to-enter-terrain
  65.   (u* water 99)
  66.   (monster water 0)
  67.   ((mob firedept) t* 99)
  68.   ((mob firedept) street 0)
  69.   )
  70.  
  71. (table unit-capacity-x
  72.   ((B BB) (mob firedept guard) 1)
  73.   (WB guard 1)
  74. )
  75.  
  76. (add u* hp-max (100 1 2 5 6 6 6 1))
  77.  
  78. (table hit-chance
  79.   (monster  u* ( 50  50  50  50 100 100 100   0))
  80.   (mob      u* (  0   0   0   0   0   0   0   0))
  81.   (firedept u* (  0  90  90   0   0   0   0   0))
  82.   (guard    u* ( 80   0   0   0   0   0   0   0))
  83.   (B        u* ( 10   0   0   0   0   0   0   0))
  84. )
  85.  
  86. (table damage
  87.   (u* u* 1)
  88.   (guard monster 4)
  89.   (monster B 3)
  90.   (monster BB 3)
  91.   (monster WB 3)
  92.   (u* rubble-pile 0)
  93. )
  94.  
  95. (add monster acp-to-fire 1)
  96.  
  97. (add monster range 2)
  98.  
  99. (add building wrecked-type burning-building)
  100.  
  101. (add burning-building wrecked-type wrecked-building)
  102.  
  103. (add wrecked-building wrecked-type rubble-pile)
  104.  
  105. (add BB hp-per-detonation 4)
  106.  
  107. (table detonation-unit-range
  108.   (BB u* 2)
  109.   )
  110.  
  111. (table detonation-damage-at
  112.   (BB u* 6)
  113.   )
  114.  
  115. (table detonation-damage-adjacent
  116.   (BB u* 6)
  117.   )
  118.  
  119. (table detonation-accident-chance
  120.   (BB t* 10.00)
  121.   )
  122.  
  123. ;(add u* destroy-message
  124. ;  ("kills" "extinguishes" "extinguishes" "massacres" "wipes out" "wipes out" "flattens"))
  125.  
  126. (add monster namer "monster-names")
  127.  
  128. (namer monster-names (random
  129.   "Godzilla" "Rodan" "Mothra" "Megalon" "Gajira" "Aspidra"
  130.   "Reptilicus" "Gamera"
  131.   ))
  132.  
  133. ;;; Random setup, for testing.
  134.  
  135. (add t* alt-percentile-min (  0  20  25  35  80  90 ))
  136. (add t* alt-percentile-max ( 20  25  35  80  90 100 ))
  137. (add t* wet-percentile-min 0)
  138. (add t* wet-percentile-max 100)
  139.  
  140. (set country-radius-min 5)
  141.  
  142. (add u* start-with (1 10 3 3 10 0 0 0))
  143.  
  144. (table favored-terrain
  145.   (u* sea 0)
  146.   )
  147.  
  148. (game-module (notes (
  149.   "Typically, one would set up a scenario with one or more monsters on"
  150.   "one side, and mobs, fire departments, and national guards on the"
  151.   "other.  Note"
  152.   "that the monster can easily defeat national guards one after another,"
  153.   "and that the most successful strategy for the human side is to"
  154.   "attack the monster with several units at once.  The monster can use"
  155.   "fires as a barricade to keep the national guards from getting close"
  156.   "enough to attack.  Destroying buildings is fun but not very useful."
  157.   ""
  158.   "Sandra Loosemore (sandra@cs.utah.edu) is the person to blame for this"
  159.   "piece of silliness (well, Stan aided and abetted)."
  160. )))
  161.  
  162.